home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip CMCD0400.iso / SOFTWARE / Demo / InfoPulse / GateKeeper / gk3full.exe / data1.cab / ConfigSite_Files / accounts / groupedit.agp next >
Encoding:
Text File  |  1999-06-17  |  4.6 KB  |  197 lines
  1. <html>
  2. <head>
  3. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  4. <meta NAME="Author,Design" Content="GateKeeper Team; gatekeeper@infopulse.net">
  5. <meta NAME="Copyright" Content="Infopulse; www.infopulse.net">
  6. <title>Empty</title>
  7. </head>
  8.  
  9. <body>
  10. <%
  11.     If Request.ReqParam("name") = "" Then
  12.         Set group = Accounts.Groups.NewGroup
  13.         NewGroup = TRUE
  14.     Else
  15.         If Request.ReqParam("newgroup") = "True" Then
  16.             Set group = Accounts.Groups.NewGroup
  17.             group.Name = Request.ReqParam("name")
  18.             NewGroup = TRUE
  19.         Else
  20.             Set group = Accounts.Groups.item(Request.ReqParam("name"))
  21.             NewGroup = FALSE
  22.         End If
  23.     End If
  24.  
  25.     If Request.ReqParam("action") = "Remove" AND Not NewGroup = TRUE Then
  26.         On Error Resume Next
  27.         group.Remove
  28.         If Not Err.Number = 0 Then 
  29.             ErrLine = Err.Description
  30.         Else
  31.             Response.Redirect("groups.agp")
  32.         End If
  33.     ElseIf Request.ReqParam("action") = "Commit" Then
  34.         ' Process the group account
  35.         group.Description = Request.ReqParam("description")
  36.  
  37.         ' Process the user list
  38.         Dim userlist()
  39.         userline = Request.ReqParam("users")
  40.         userlistidx = 1
  41.         While Len(userline)
  42.             pos = InStr(userline,",")
  43.             If pos > 0 Then
  44.                 useritem = Left(userline,pos - 1)
  45.                 userline = Mid(userline,pos + 1)
  46.             Else
  47.                 useritem = userline
  48.                 userline = ""
  49.             End If
  50.             ReDim Preserve userlist(userlistidx+1)
  51.             userlist(userlistidx) = useritem
  52.             userlistidx = userlistidx + 1
  53.         Wend
  54.  
  55.         Set users = Accounts.Users
  56.         For usercnt = 1 to users.count
  57.             Set user = Accounts.Users.Item(usercnt)
  58.  
  59.             bIsMemberOfThisGroup = FALSE
  60.             For listcnt = 1 to userlistidx-1
  61.                 If userlist(listcnt) = user.name Then
  62.                     bIsMemberOfThisGroup = TRUE
  63.                 End If
  64.             Next
  65.  
  66.             If group.IsMember(user.name) AND Not bIsMemberOfThisGroup = TRUE Then
  67.                 group.DelMember(user.name)
  68.             ElseIf Not group.IsMember(user.name) AND bIsMemberOfThisGroup = TRUE Then
  69.                 group.AddMember(user.name)
  70.             End If
  71.  
  72.         Next
  73.  
  74.         On Error Resume Next
  75.         group.Commit
  76.         If Not Err.Number = 0 Then 
  77.             ErrLine = Err.Description
  78.         Else
  79.             Response.Redirect("groups.agp")
  80.         End If
  81.     End If
  82.  
  83.     If Not NewGroup Then
  84. %>
  85.     <p><big><strong><font face="Arial">
  86.         Edit group account
  87.     </font></strong></big></p>
  88. <%
  89.     Else
  90. %>
  91.     <p><big><strong><font face="Arial">
  92.         Add new group account
  93.     </font></strong></big></p>
  94. <%
  95.     End If
  96.  
  97.     If Not Len(ErrLine) = 0 Then
  98.         Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br>")
  99.     End If
  100. %>
  101.  
  102. <form method="POST" action="/accounts/groupedit.agp">
  103.     <input type="hidden" name="newgroup" value="<%Response.Write(NewGroup)%>">
  104.     <div align="center"><center>
  105.     <table border="1" cellpadding="0" cellspacing="0" width="100%">
  106.         <tr>
  107.             <td width="20%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  108.                 Option
  109.             </font></strong></td>
  110.             <td width="40%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  111.                 Value
  112.             </font></strong></td>
  113.         <tr>
  114.         <tr>
  115.             <td width="20%"><strong><font face="Arial">
  116.                 Name
  117.             </font></strong></td>
  118.             <td width="40%">
  119. <%
  120.     If NewGroup Then
  121. %>
  122.     <input type="text" size="20" name="name" value="<%Response.Write(group.name)%>">
  123. <%
  124.     Else
  125. %>
  126.     <input type="hidden" name="name" value="<%Response.Write(group.name)%>">
  127.     <%Response.Write(group.name)%>
  128. <%
  129.     End If
  130. %>
  131.             </td>
  132.         </tr>
  133.         <tr>
  134.             <td width="20%"><strong><font face="Arial">
  135.                 Description
  136.             </font></strong></td>
  137.             <td width="40%">
  138.                 <input type="text" size="40" name="description" value="<%Response.Write(group.description)%>">
  139.             </td>
  140.         </tr>
  141.     </table>
  142.     </center></div>
  143. <br>
  144. <font face="Arial">
  145. <%
  146.     Set users = Accounts.Users
  147.     usercount = 1
  148. %>
  149.     The following users are members of this group
  150.     <table border="0" width="100%">
  151. <%
  152.     While Not usercount > users.count
  153. %>
  154.         <tr>
  155. <%
  156.         For subcount = 0 to 3 
  157. %>
  158.             <td width="25%">
  159. <%
  160.             If Not usercount > users.count Then
  161.                 Set user = users.item(usercount)
  162.                 Response.Write("<input type=""checkbox"" ")
  163.                 If group.IsMember(user.name) Then
  164.                     Response.Write("Checked ")
  165.                 End If
  166.                 Response.Write("name=""users"" value="""&user.name&""">")
  167.                 Response.Write(user.name)
  168.             End If
  169.             usercount = usercount + 1
  170. %>
  171.             </td>
  172. <%
  173.         Next
  174. %>
  175.         </tr>
  176. <%
  177.     WEnd
  178. %>
  179.     </table>
  180.     </font>
  181.     <p><input type="submit" name="action" value="Commit">
  182. <% 
  183.     If Not NewGroup = TRUE Then 
  184. %>
  185.     <input type="submit" name="action" value="Remove">
  186. <%
  187.     End If
  188. %>
  189.     </p>
  190. </form>
  191.  
  192. <p><br>
  193. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  194. </p>
  195. </body>
  196. </html>
  197.